* lisp/emacs-lisp/bytecomp.el: Fix byte-switch codegen with symbols.

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 3c59c92c042953dee212cf2c279f189624b8f31a..0da1418321f41c82a4bcb621320e57acc4db1fbf 100644 (file)
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -4005,7 +4005,7 @@ that suppresses all warnings during execution of BODY."
                         (eq obj1 prev-var)
                         ;; discard duplicate clauses
                         (not (assq obj2 cases)))
-                   (push (list (eval obj2) body) cases)
+                   (push (list (if (consp obj2) (eval obj2) obj2) body) cases)
                  (if (eq condition t)
                      (progn (push (list 'default body) cases)
                             (throw 'break t))